home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / howtoo1r / info.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-20  |  6.8 KB  |  208 lines
  1. VERSION 5.00
  2. Begin VB.Form wininfo 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Client Information"
  5.    ClientHeight    =   4935
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6150
  9.    Icon            =   "Info.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   4935
  13.    ScaleWidth      =   6150
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton refresh_list 
  16.       Caption         =   "Refresh &List"
  17.       Height          =   375
  18.       Left            =   240
  19.       TabIndex        =   10
  20.       Top             =   120
  21.       Width           =   1815
  22.    End
  23.    Begin VB.ComboBox selected_id 
  24.       Height          =   315
  25.       Left            =   3360
  26.       Style           =   2  'Dropdown List
  27.       TabIndex        =   1
  28.       Top             =   240
  29.       Width           =   2655
  30.    End
  31.    Begin VB.Frame Frame1 
  32.       Caption         =   "  Client Settings "
  33.       Height          =   4215
  34.       Left            =   120
  35.       TabIndex        =   0
  36.       Top             =   600
  37.       Width           =   5895
  38.       Begin VB.TextBox info_ip 
  39.          Appearance      =   0  'Flat
  40.          Height          =   285
  41.          Left            =   240
  42.          Locked          =   -1  'True
  43.          TabIndex        =   11
  44.          TabStop         =   0   'False
  45.          Top             =   2400
  46.          Width           =   1695
  47.       End
  48.       Begin VB.CommandButton refresh_button 
  49.          Caption         =   "&Refresh"
  50.          Height          =   375
  51.          Left            =   4440
  52.          TabIndex        =   9
  53.          Top             =   3720
  54.          Width           =   1335
  55.       End
  56.       Begin VB.TextBox info_idle_since 
  57.          Appearance      =   0  'Flat
  58.          Height          =   285
  59.          Left            =   240
  60.          Locked          =   -1  'True
  61.          TabIndex        =   5
  62.          TabStop         =   0   'False
  63.          Top             =   1800
  64.          Width           =   1695
  65.       End
  66.       Begin VB.TextBox info_connected_at 
  67.          Appearance      =   0  'Flat
  68.          Height          =   285
  69.          Left            =   240
  70.          Locked          =   -1  'True
  71.          TabIndex        =   4
  72.          TabStop         =   0   'False
  73.          Top             =   1200
  74.          Width           =   1695
  75.       End
  76.       Begin VB.TextBox info_socket 
  77.          Appearance      =   0  'Flat
  78.          Height          =   285
  79.          Left            =   240
  80.          Locked          =   -1  'True
  81.          TabIndex        =   3
  82.          TabStop         =   0   'False
  83.          Top             =   600
  84.          Width           =   1695
  85.       End
  86.       Begin VB.Label Label5 
  87.          AutoSize        =   -1  'True
  88.          Caption         =   "IP:"
  89.          BeginProperty Font 
  90.             Name            =   "MS Sans Serif"
  91.             Size            =   8.25
  92.             Charset         =   0
  93.             Weight          =   700
  94.             Underline       =   0   'False
  95.             Italic          =   0   'False
  96.             Strikethrough   =   0   'False
  97.          EndProperty
  98.          Height          =   195
  99.          Left            =   240
  100.          TabIndex        =   12
  101.          Top             =   2160
  102.          Width           =   255
  103.       End
  104.       Begin VB.Label Label4 
  105.          AutoSize        =   -1  'True
  106.          Caption         =   "Idle Since:"
  107.          BeginProperty Font 
  108.             Name            =   "MS Sans Serif"
  109.             Size            =   8.25
  110.             Charset         =   0
  111.             Weight          =   700
  112.             Underline       =   0   'False
  113.             Italic          =   0   'False
  114.             Strikethrough   =   0   'False
  115.          EndProperty
  116.          Height          =   195
  117.          Left            =   240
  118.          TabIndex        =   8
  119.          Top             =   1560
  120.          Width           =   930
  121.       End
  122.       Begin VB.Label Label3 
  123.          AutoSize        =   -1  'True
  124.          Caption         =   "Connected At:"
  125.          BeginProperty Font 
  126.             Name            =   "MS Sans Serif"
  127.             Size            =   8.25
  128.             Charset         =   0
  129.             Weight          =   700
  130.             Underline       =   0   'False
  131.             Italic          =   0   'False
  132.             Strikethrough   =   0   'False
  133.          EndProperty
  134.          Height          =   195
  135.          Left            =   240
  136.          TabIndex        =   7
  137.          Top             =   960
  138.          Width           =   1230
  139.       End
  140.       Begin VB.Label Label2 
  141.          AutoSize        =   -1  'True
  142.          Caption         =   "Socket:"
  143.          BeginProperty Font 
  144.             Name            =   "MS Sans Serif"
  145.             Size            =   8.25
  146.             Charset         =   0
  147.             Weight          =   700
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          Height          =   195
  153.          Left            =   240
  154.          TabIndex        =   6
  155.          Top             =   360
  156.          Width           =   675
  157.       End
  158.    End
  159.    Begin VB.Label Label1 
  160.       AutoSize        =   -1  'True
  161.       Caption         =   "Client ID :"
  162.       BeginProperty Font 
  163.          Name            =   "MS Sans Serif"
  164.          Size            =   8.25
  165.          Charset         =   0
  166.          Weight          =   700
  167.          Underline       =   0   'False
  168.          Italic          =   0   'False
  169.          Strikethrough   =   0   'False
  170.       EndProperty
  171.       Height          =   195
  172.       Left            =   2400
  173.       TabIndex        =   2
  174.       Top             =   240
  175.       Width           =   870
  176.    End
  177. Attribute VB_Name = "wininfo"
  178. Attribute VB_GlobalNameSpace = False
  179. Attribute VB_Creatable = False
  180. Attribute VB_PredeclaredId = True
  181. Attribute VB_Exposed = False
  182. Private Sub Form_Load()
  183. 'get the list on load
  184. refresh_list_Click
  185. End Sub
  186. Private Sub refresh_button_Click()
  187. 'update info
  188. selected_id_Click
  189. End Sub
  190. Private Sub refresh_list_Click()
  191. selected_id.Clear
  192. 'fill the selection list with the possible clientIDs
  193. For i = 1 To max_clients
  194. If client(i).socket <> "0" Then selected_id.AddItem i
  195. Next i
  196. 'select the first item
  197. If selected_id.ListCount > 0 Then selected_id.ListIndex = "0"
  198. End Sub
  199. Private Sub selected_id_Click()
  200. 'show the info on the selected client
  201. If selected_id = "" Then Exit Sub
  202. If selected_id < 1 Then Exit Sub
  203. info_connected_at = client(selected_id).connected_at
  204. info_idle_since = client(selected_id).idle_since
  205. info_socket = client(selected_id).socket
  206. info_ip = main.sock(client(selected_id).socket).RemoteHostIP
  207. End Sub
  208.